﻿Module modToolTips
    Public Sub AccountToolTips()
        'ToolTip: tlLogin
        Dim tlLogin As New ToolTip()
        tlLogin.ToolTipTitle = "Info"
        tlLogin.ToolTipIcon = ToolTipIcon.Info
        tlLogin.UseFading = True
        tlLogin.UseAnimation = True
        tlLogin.ShowAlways = True
        tlLogin.AutoPopDelay = 5000
        tlLogin.InitialDelay = 500
        tlLogin.ReshowDelay = 100
        tlLogin.IsBalloon = True
        tlLogin.SetToolTip(frmAccountMenu.btnLogin, "Login")

        'ToolTip: tlAdd
        Dim tlAdd As New ToolTip()
        tlAdd.ToolTipTitle = "Info"
        tlAdd.ToolTipIcon = ToolTipIcon.Info
        tlAdd.UseFading = True
        tlAdd.UseAnimation = True
        tlAdd.ShowAlways = True
        tlAdd.AutoPopDelay = 5000
        tlAdd.InitialDelay = 500
        tlAdd.ReshowDelay = 100
        tlAdd.IsBalloon = True
        tlAdd.SetToolTip(frmAccountMenu.btnAddNewAccount, "Add New Account")

        'ToolTip: tlEdit
        Dim tlEdit As New ToolTip()
        tlEdit.ToolTipTitle = "Info"
        tlEdit.ToolTipIcon = ToolTipIcon.Info
        tlEdit.UseFading = True
        tlEdit.UseAnimation = True
        tlEdit.ShowAlways = True
        tlEdit.AutoPopDelay = 5000
        tlEdit.InitialDelay = 500
        tlEdit.ReshowDelay = 100
        tlEdit.IsBalloon = True
        tlEdit.SetToolTip(frmAccountMenu.btnEditAccount, "Edit Account")

        'ToolTip: tlDelete
        Dim tlDelete As New ToolTip()
        tlDelete.ToolTipTitle = "Info"
        tlDelete.ToolTipIcon = ToolTipIcon.Info
        tlDelete.UseFading = True
        tlDelete.UseAnimation = True
        tlDelete.ShowAlways = True
        tlDelete.AutoPopDelay = 5000
        tlDelete.InitialDelay = 500
        tlDelete.ReshowDelay = 100
        tlDelete.IsBalloon = True
        tlDelete.SetToolTip(frmAccountMenu.btnDeleteAccount, "Delete Account")

        'ToolTip: tlForgotPassword
        Dim tlForgotPassword As New ToolTip()
        tlForgotPassword.ToolTipTitle = "Info"
        tlForgotPassword.ToolTipIcon = ToolTipIcon.Info
        tlForgotPassword.UseFading = True
        tlForgotPassword.UseAnimation = True
        tlForgotPassword.ShowAlways = True
        tlForgotPassword.AutoPopDelay = 5000
        tlForgotPassword.InitialDelay = 500
        tlForgotPassword.ReshowDelay = 100
        tlForgotPassword.IsBalloon = True
        tlForgotPassword.SetToolTip(frmAccountMenu.btnForgotPassword, "Forgot Password")
    End Sub
    Public Sub AdminToolTips()
        'ToolTip: tlCandidateManager
        Dim tlCandidateManager As New ToolTip()
        tlCandidateManager.ToolTipTitle = "Info"
        tlCandidateManager.ToolTipIcon = ToolTipIcon.Info
        tlCandidateManager.UseFading = True
        tlCandidateManager.UseAnimation = True
        tlCandidateManager.ShowAlways = True
        tlCandidateManager.AutoPopDelay = 5000
        tlCandidateManager.InitialDelay = 500
        tlCandidateManager.ReshowDelay = 100
        tlCandidateManager.IsBalloon = True
        tlCandidateManager.SetToolTip(frmMenu.btnCandidateManager, "Candidate Manager")

        'ToolTip: tlTaskManager
        Dim tlTaskManager As New ToolTip()
        tlTaskManager.ToolTipTitle = "Info"
        tlTaskManager.ToolTipIcon = ToolTipIcon.Info
        tlTaskManager.UseFading = True
        tlTaskManager.UseAnimation = True
        tlTaskManager.ShowAlways = True
        tlTaskManager.AutoPopDelay = 5000
        tlTaskManager.InitialDelay = 500
        tlTaskManager.ReshowDelay = 100
        tlTaskManager.IsBalloon = True
        tlTaskManager.SetToolTip(frmMenu.btnTaskManager, "Task Manager")

        'ToolTip: tlStoreManager
        Dim tlStoreManager As New ToolTip()
        tlStoreManager.ToolTipTitle = "Info"
        tlStoreManager.ToolTipIcon = ToolTipIcon.Info
        tlStoreManager.UseFading = True
        tlStoreManager.UseAnimation = True
        tlStoreManager.ShowAlways = True
        tlStoreManager.AutoPopDelay = 5000
        tlStoreManager.InitialDelay = 500
        tlStoreManager.ReshowDelay = 100
        tlStoreManager.IsBalloon = True
        tlStoreManager.SetToolTip(frmMenu.btnStoreManager, "Store Manager")

        'ToolTip: tlVendorManager
        Dim tlVendorManager As New ToolTip()
        tlVendorManager.ToolTipTitle = "Info"
        tlVendorManager.ToolTipIcon = ToolTipIcon.Info
        tlVendorManager.UseFading = True
        tlVendorManager.UseAnimation = True
        tlVendorManager.ShowAlways = True
        tlVendorManager.AutoPopDelay = 5000
        tlVendorManager.InitialDelay = 500
        tlVendorManager.ReshowDelay = 100
        tlVendorManager.IsBalloon = True
        tlVendorManager.SetToolTip(frmMenu.btnVendorManager, "Vendor Manager")

        'ToolTip: tlShiftManager
        Dim tlShiftManager As New ToolTip()
        tlShiftManager.ToolTipTitle = "Info"
        tlShiftManager.ToolTipIcon = ToolTipIcon.Info
        tlShiftManager.UseFading = True
        tlShiftManager.UseAnimation = True
        tlShiftManager.ShowAlways = True
        tlShiftManager.AutoPopDelay = 5000
        tlShiftManager.InitialDelay = 500
        tlShiftManager.ReshowDelay = 100
        tlShiftManager.IsBalloon = True
        tlShiftManager.SetToolTip(frmMenu.btnShiftManager, "Shift Manager")

        'ToolTip: tlStaffManager
        Dim tlStaffManager As New ToolTip()
        tlStaffManager.ToolTipTitle = "Info"
        tlStaffManager.ToolTipIcon = ToolTipIcon.Info
        tlStaffManager.UseFading = True
        tlStaffManager.UseAnimation = True
        tlStaffManager.ShowAlways = True
        tlStaffManager.AutoPopDelay = 5000
        tlStaffManager.InitialDelay = 500
        tlStaffManager.ReshowDelay = 100
        tlStaffManager.IsBalloon = True
        tlStaffManager.SetToolTip(frmMenu.btnStaffManager, "Staff Manager")

        'ToolTip: tlPRManager
        Dim tlPRManager As New ToolTip()
        tlPRManager.ToolTipTitle = "Info"
        tlPRManager.ToolTipIcon = ToolTipIcon.Info
        tlPRManager.UseFading = True
        tlPRManager.UseAnimation = True
        tlPRManager.ShowAlways = True
        tlPRManager.AutoPopDelay = 5000
        tlPRManager.InitialDelay = 500
        tlPRManager.ReshowDelay = 100
        tlPRManager.IsBalloon = True
        tlPRManager.SetToolTip(frmMenu.btnPRManager, "Feedback Manager")

        'ToolTip: tlFinanceManager
        Dim tlFinanceManager As New ToolTip()
        tlFinanceManager.ToolTipTitle = "Info"
        tlFinanceManager.ToolTipIcon = ToolTipIcon.Info
        tlFinanceManager.UseFading = True
        tlFinanceManager.UseAnimation = True
        tlFinanceManager.ShowAlways = True
        tlFinanceManager.AutoPopDelay = 5000
        tlFinanceManager.InitialDelay = 500
        tlFinanceManager.ReshowDelay = 100
        tlFinanceManager.IsBalloon = True
        tlFinanceManager.SetToolTip(frmMenu.btnFinanceManager, "Finance Manager")
    End Sub
    Public Sub StaffToolTips()
        'ToolTip: tlOvertimeManager
        Dim tlOvertimeManager As New ToolTip()
        tlOvertimeManager.ToolTipTitle = "Info"
        tlOvertimeManager.ToolTipIcon = ToolTipIcon.Info
        tlOvertimeManager.UseFading = True
        tlOvertimeManager.UseAnimation = True
        tlOvertimeManager.ShowAlways = True
        tlOvertimeManager.AutoPopDelay = 5000
        tlOvertimeManager.InitialDelay = 500
        tlOvertimeManager.ReshowDelay = 100
        tlOvertimeManager.IsBalloon = True
        tlOvertimeManager.SetToolTip(frmStaffMenu.btnOvertimeManager, "Overtime Manager")

        'ToolTip: tlLeaveManager
        Dim tlLeaveManager As New ToolTip()
        tlLeaveManager.ToolTipTitle = "Info"
        tlLeaveManager.ToolTipIcon = ToolTipIcon.Info
        tlLeaveManager.UseFading = True
        tlLeaveManager.UseAnimation = True
        tlLeaveManager.ShowAlways = True
        tlLeaveManager.AutoPopDelay = 5000
        tlLeaveManager.InitialDelay = 500
        tlLeaveManager.ReshowDelay = 100
        tlLeaveManager.IsBalloon = True
        tlLeaveManager.SetToolTip(frmStaffMenu.btnLeaveManager, "Leave Manager")

        'ToolTip: tlAttendanceManager
        Dim tlAttendanceManager As New ToolTip()
        tlAttendanceManager.ToolTipTitle = "Info"
        tlAttendanceManager.ToolTipIcon = ToolTipIcon.Info
        tlAttendanceManager.UseFading = True
        tlAttendanceManager.UseAnimation = True
        tlAttendanceManager.ShowAlways = True
        tlAttendanceManager.AutoPopDelay = 5000
        tlAttendanceManager.InitialDelay = 500
        tlAttendanceManager.ReshowDelay = 100
        tlAttendanceManager.IsBalloon = True
        tlAttendanceManager.SetToolTip(frmStaffMenu.btnAttendanceManager, "Attendance Manager")

        'ToolTip: tlInfractionManager
        Dim tlInfractionManager As New ToolTip()
        tlInfractionManager.ToolTipTitle = "Info"
        tlInfractionManager.ToolTipIcon = ToolTipIcon.Info
        tlInfractionManager.UseFading = True
        tlInfractionManager.UseAnimation = True
        tlInfractionManager.ShowAlways = True
        tlInfractionManager.AutoPopDelay = 5000
        tlInfractionManager.InitialDelay = 500
        tlInfractionManager.ReshowDelay = 100
        tlInfractionManager.IsBalloon = True
        tlInfractionManager.SetToolTip(frmStaffMenu.btnInfractionManager, "Infraction Manager")

        'ToolTip: tlPaymentManager
        Dim tlPaymentManager As New ToolTip()
        tlPaymentManager.ToolTipTitle = "Info"
        tlPaymentManager.ToolTipIcon = ToolTipIcon.Info
        tlPaymentManager.UseFading = True
        tlPaymentManager.UseAnimation = True
        tlPaymentManager.ShowAlways = True
        tlPaymentManager.AutoPopDelay = 5000
        tlPaymentManager.InitialDelay = 500
        tlPaymentManager.ReshowDelay = 100
        tlPaymentManager.IsBalloon = True
        tlPaymentManager.SetToolTip(frmStaffMenu.btnPaymentManager, "Payment Manager")

        'ToolTip: tlPayslipManager
        Dim tlPayslipManager As New ToolTip()
        tlPayslipManager.ToolTipTitle = "Info"
        tlPayslipManager.ToolTipIcon = ToolTipIcon.Info
        tlPayslipManager.UseFading = True
        tlPayslipManager.UseAnimation = True
        tlPayslipManager.ShowAlways = True
        tlPayslipManager.AutoPopDelay = 5000
        tlPayslipManager.InitialDelay = 500
        tlPayslipManager.ReshowDelay = 100
        tlPayslipManager.IsBalloon = True
        tlPayslipManager.SetToolTip(frmStaffMenu.btnPayslipManager, "Payslip Manager")
    End Sub
End Module
